/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / refract

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 20 f4 20 20 | 2a 2a 20 20 3e 52 45 46 |.... .  |**  >REF|
|00000010| 52 41 43 54 20 20 2a 2a | 0d 00 14 06 20 db 0d 00 |RACT  **|.... ...|
|00000020| 1e 94 20 f1 27 27 8a 35 | 29 3b 22 54 68 69 73 20 |.. .''.5|);"This |
|00000030| 72 6f 75 74 69 6e 65 20 | 63 6f 6e 76 65 72 74 73 |routine |converts|
|00000040| 20 74 68 65 20 74 72 75 | 65 20 61 6c 74 69 74 75 | the tru|e altitu|
|00000050| 64 65 20 69 6e 74 6f 20 | 74 68 65 20 61 70 70 61 |de into |the appa|
|00000060| 72 65 6e 74 20 61 6c 74 | 69 74 75 64 65 2c 20 20 |rent alt|itude,  |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 61 6e 64 20 76 |        |   and v|
|00000080| 69 63 65 20 76 65 72 73 | 61 2c 20 63 6f 72 72 65 |ice vers|a, corre|
|00000090| 63 74 69 6e 67 20 66 6f | 72 20 61 74 6d 6f 73 70 |cting fo|r atmosp|
|000000a0| 68 65 72 69 63 20 72 65 | 66 72 61 63 74 69 6f 6e |heric re|fraction|
|000000b0| 2e 22 0d 00 28 06 20 3a | 0d 00 32 1a 20 dd a4 44 |."..(. :|..2. ..D|
|000000c0| 45 47 28 57 29 3d 35 2e | 37 32 39 35 37 38 45 31 |EG(W)=5.|729578E1|
|000000d0| 2a 57 0d 00 3c 1b 20 dd | a4 52 41 44 28 57 29 3d |*W..<. .|.RAD(W)=|
|000000e0| 31 2e 37 34 35 33 32 39 | 45 2d 32 2a 57 0d 00 46 |1.745329|E-2*W..F|
|000000f0| 23 20 dd a4 41 53 4e 28 | 57 29 3d 99 28 57 2f 28 |# ..ASN(|W)=.(W/(|
|00000100| b6 28 31 2d 57 2a 57 29 | 2b 31 45 2d 32 30 29 29 |.(1-W*W)|+1E-20))|
|00000110| 0d 00 50 21 20 dd a4 41 | 43 53 28 57 29 3d 31 2e |..P! ..A|CS(W)=1.|
|00000120| 35 37 30 37 39 36 33 32 | 37 2d a4 41 53 4e 28 57 |57079632|7-.ASN(W|
|00000130| 29 0d 00 5a 0e 20 de 20 | 46 4c 41 47 28 34 29 0d |)..Z. . |FLAG(4).|
|00000140| 00 64 1e 20 f1 3a 46 4c | 47 3d 30 3a 46 4c 41 47 |.d. .:FL|G=0:FLAG|
|00000150| 28 30 29 3d 31 3a 54 50 | 49 3d 32 2a af 0d 00 6e |(0)=1:TP|I=2*...n|
|00000160| 20 20 f1 27 27 22 41 74 | 6d 6f 73 70 68 65 72 69 |  .''"At|mospheri|
|00000170| 63 20 72 65 66 72 61 63 | 74 69 6f 6e 22 0d 00 78 |c refrac|tion"..x|
|00000180| 06 20 f1 0d 00 82 16 20 | e7 20 46 4c 41 47 28 34 |. ..... |. FLAG(4|
|00000190| 29 3d 31 20 8c 8d 74 7e | 40 0d 00 8c 30 20 e8 22 |)=1 ..t~|@...0 ."|
|000001a0| 47 65 6f 67 2e 20 6c 6f | 6e 67 69 74 75 64 65 20 |Geog. lo|ngitude |
|000001b0| 20 28 57 20 6e 65 67 3b | 20 44 2c 4d 2c 53 29 22 | (W neg;| D,M,S)"|
|000001c0| 3b 58 44 2c 58 4d 2c 58 | 53 0d 00 96 1a 20 53 57 |;XD,XM,X|S.... SW|
|000001d0| 31 3d 2d 31 3a f2 4d 69 | 6e 73 65 63 3a 4c 4f 4e |1=-1:.Mi|nsec:LON|
|000001e0| 47 3d 58 0d 00 a0 30 20 | e8 22 47 65 6f 67 72 61 |G=X...0 |."Geogra|
|000001f0| 70 68 69 63 61 6c 20 6c | 61 74 69 74 75 64 65 20 |phical l|atitude |
|00000200| 20 20 28 44 2c 4d 2c 53 | 29 22 3b 58 44 2c 58 4d |  (D,M,S|)";XD,XM|
|00000210| 2c 58 53 0d 00 aa 18 20 | f2 4d 69 6e 73 65 63 3a |,XS.... |.Minsec:|
|00000220| 50 48 49 3d a4 52 41 44 | 28 58 29 0d 00 b4 06 20 |PHI=.RAD|(X).... |
|00000230| f1 0d 00 be 16 20 e7 20 | 46 4c 41 47 28 33 29 3d |..... . |FLAG(3)=|
|00000240| 31 20 8c 8d 64 7a 40 0d | 00 c8 23 20 e8 22 44 61 |1 ..dz@.|..# ."Da|
|00000250| 74 65 20 20 20 20 20 20 | 20 28 44 2c 4d 2c 59 29 |te      | (D,M,Y)|
|00000260| 22 3b 44 59 2c 4d 4e 2c | 59 52 0d 00 d2 23 20 e8 |";DY,MN,|YR...# .|
|00000270| 22 20 20 61 6e 64 20 74 | 69 6d 65 20 28 48 2c 4d |"  and t|ime (H,M|
|00000280| 2c 53 29 22 3b 58 44 2c | 58 4d 2c 58 53 0d 00 dc |,S)";XD,|XM,XS...|
|00000290| 19 20 53 57 31 3d 2d 31 | 3a f2 4d 69 6e 73 65 63 |. SW1=-1|:.Minsec|
|000002a0| 3a 54 49 4d 3d 58 0d 00 | e6 19 20 53 57 32 3d 31 |:TIM=X..|.. SW2=1|
|000002b0| 3a f2 47 74 69 6d 65 3a | 47 53 54 3d 47 54 4d 0d |:.Gtime:|GST=GTM.|
|000002c0| 00 f0 06 20 f1 0d 00 fa | 12 20 e7 20 46 4c 47 3d |... ....|. . FLG=|
|000002d0| 31 20 8c 8d 54 62 41 0d | 01 04 26 20 e8 22 41 74 |1 ..TbA.|..& ."At|
|000002e0| 6d 6f 73 70 68 65 72 69 | 63 20 70 72 65 73 73 75 |mospheri|c pressu|
|000002f0| 72 65 20 28 6d 42 61 72 | 29 22 3b 50 52 0d 01 0e |re (mBar|)";PR...|
|00000300| 26 20 e8 22 41 74 6d 6f | 73 70 68 65 72 69 63 20 |& ."Atmo|spheric |
|00000310| 74 65 6d 70 65 72 61 74 | 75 72 65 20 28 43 29 22 |temperat|ure (C)"|
|00000320| 3b 54 52 0d 01 18 0c 20 | f1 3a 46 4c 47 3d 31 0d |;TR.... |.:FLG=1.|
|00000330| 01 22 0a 20 53 57 35 3d | 31 0d 01 2c 22 20 e8 22 |.". SW5=|1..," ."|
|00000340| 54 72 75 65 20 74 6f 20 | 61 70 70 61 72 65 6e 74 |True to |apparent|
|00000350| 20 28 59 2f 4e 29 22 3b | 41 4e 24 0d 01 36 14 20 | (Y/N)";|AN$..6. |
|00000360| e7 20 41 4e 24 3d 22 59 | 22 20 8c 8d 44 5e 41 0d |. AN$="Y|" ..D^A.|
|00000370| 01 40 0b 20 53 57 35 3d | 2d 31 0d 01 4a 22 20 e8 |.@. SW5=|-1..J" .|
|00000380| 22 41 70 70 61 72 65 6e | 74 20 74 6f 20 74 72 75 |"Apparen|t to tru|
|00000390| 65 20 28 59 2f 4e 29 22 | 3b 41 4e 24 0d 01 54 14 |e (Y/N)"|;AN$..T.|
|000003a0| 20 e7 20 41 4e 24 3d 22 | 4e 22 20 8c 8d 64 74 41 | . AN$="|N" ..dtA|
|000003b0| 0d 01 5e 06 20 f1 0d 01 | 68 28 20 e8 22 52 69 67 |..^. ...|h( ."Rig|
|000003c0| 68 74 20 61 73 63 65 6e | 73 69 6f 6e 20 28 48 2c |ht ascen|sion (H,|
|000003d0| 4d 2c 53 29 22 3b 58 44 | 2c 58 4d 2c 58 53 0d 01 |M,S)";XD|,XM,XS..|
|000003e0| 72 1a 20 53 57 31 3d 2d | 31 3a f2 4d 69 6e 73 65 |r. SW1=-|1:.Minse|
|000003f0| 63 3a f2 48 72 61 6e 67 | 0d 01 7c 28 20 e8 22 44 |c:.Hrang|..|( ."D|
|00000400| 65 63 6c 69 6e 61 74 69 | 6f 6e 20 20 20 20 20 28 |eclinati|on     (|
|00000410| 44 2c 4d 2c 53 29 22 3b | 58 44 2c 58 4d 2c 58 53 |D,M,S)";|XD,XM,XS|
|00000420| 0d 01 86 23 20 f2 4d 69 | 6e 73 65 63 3a 59 3d a4 |...# .Mi|nsec:Y=.|
|00000430| 52 41 44 28 58 29 3a 58 | 3d a4 52 41 44 28 50 29 |RAD(X):X|=.RAD(P)|
|00000440| 2a 31 35 0d 01 90 17 20 | f2 45 71 68 6f 72 3a 59 |*15.... |.Eqhor:Y|
|00000450| 3d 51 3a f2 52 65 66 72 | 63 74 0d 01 9a 0f 20 58 |=Q:.Refr|ct.... X|
|00000460| 3d 50 3a f2 45 71 68 6f | 72 0d 01 a4 18 20 58 3d |=P:.Eqho|r.... X=|
|00000470| a4 44 45 47 28 50 29 2f | 31 35 3a f2 48 72 61 6e |.DEG(P)/|15:.Hran|
|00000480| 67 0d 01 ae 06 20 f1 0d | 01 b8 1c 20 58 3d a4 44 |g.... ..|... X=.D|
|00000490| 45 47 28 52 29 3a 53 57 | 31 3d 31 3a f2 4d 69 6e |EG(R):SW|1=1:.Min|
|000004a0| 73 65 63 0d 01 c2 3c 20 | f1 22 41 6c 74 69 74 75 |sec...< |."Altitu|
|000004b0| 64 65 20 63 6f 72 72 65 | 63 74 69 6f 6e 20 28 44 |de corre|ction (D|
|000004c0| 2c 4d 2c 53 29 3a 22 3b | 53 24 3b 22 20 22 3b 58 |,M,S):";|S$;" ";X|
|000004d0| 44 3b 22 20 22 3b 58 4d | 3b 22 20 22 3b 58 53 0d |D;" ";XM|;" ";XS.|
|000004e0| 01 cc 10 20 58 3d 50 3a | f2 4d 69 6e 73 65 63 0d |... X=P:|.Minsec.|
|000004f0| 01 d6 2f 20 f1 22 43 6f | 72 72 65 63 74 65 64 20 |../ ."Co|rrected |
|00000500| 52 41 20 20 28 48 2c 4d | 2c 53 29 3a 22 3b 58 44 |RA  (H,M|,S):";XD|
|00000510| 3b 22 20 22 3b 58 4d 3b | 22 20 22 3b 58 53 0d 01 |;" ";XM;|" ";XS..|
|00000520| e0 16 20 58 3d a4 44 45 | 47 28 51 29 3a f2 4d 69 |.. X=.DE|G(Q):.Mi|
|00000530| 6e 73 65 63 0d 01 ea 36 | 20 f1 22 43 6f 72 72 65 |nsec...6| ."Corre|
|00000540| 63 74 65 64 20 64 65 63 | 20 28 44 2c 4d 2c 53 29 |cted dec| (D,M,S)|
|00000550| 3a 22 3b 53 24 3b 22 20 | 22 3b 58 44 3b 22 20 22 |:";S$;" |";XD;" "|
|00000560| 3b 58 4d 3b 22 20 22 3b | 58 53 0d 01 f4 06 20 f1 |;XM;" ";|XS.... .|
|00000570| 0d 01 fe 18 20 e8 20 22 | 41 67 61 69 6e 20 28 59 |.... . "|Again (Y|
|00000580| 2f 4e 29 22 3b 41 4e 24 | 0d 02 08 10 20 e7 20 41 |/N)";AN$|.... . A|
|00000590| 4e 24 3d 22 4e 22 20 e0 | 0d 02 12 1b 20 e8 22 4e |N$="N" .|.... ."N|
|000005a0| 65 77 20 70 6c 61 63 65 | 20 28 59 2f 4e 29 22 3b |ew place| (Y/N)";|
|000005b0| 41 4e 24 0d 02 1c 1a 20 | e7 20 41 4e 24 3d 22 59 |AN$.... |. AN$="Y|
|000005c0| 22 20 8c 20 46 4c 41 47 | 28 34 29 3d 30 0d 02 26 |" . FLAG|(4)=0..&|
|000005d0| 23 20 e8 22 4e 65 77 20 | 64 61 74 65 20 6f 72 20 |# ."New |date or |
|000005e0| 74 69 6d 65 20 20 28 59 | 2f 4e 29 22 3b 41 4e 24 |time  (Y|/N)";AN$|
|000005f0| 0d 02 30 1a 20 e7 20 41 | 4e 24 3d 22 59 22 20 8c |..0. . A|N$="Y" .|
|00000600| 20 46 4c 41 47 28 33 29 | 3d 30 0d 02 3a 20 20 e8 | FLAG(3)|=0..:  .|
|00000610| 22 4e 65 77 20 61 74 6d | 6f 73 70 68 65 72 65 20 |"New atm|osphere |
|00000620| 28 59 2f 4e 29 22 3b 41 | 4e 24 0d 02 44 16 20 e7 |(Y/N)";A|N$..D. .|
|00000630| 20 41 4e 24 3d 22 59 22 | 20 8c 20 46 4c 47 3d 30 | AN$="Y"| . FLG=0|
|00000640| 0d 02 4e 0a 20 e5 8d 44 | 78 40 0d 02 58 06 20 3a |..N. ..D|x@..X. :|
|00000650| 0d 02 62 0d 20 dd f2 4d | 69 6e 73 65 63 0d 02 6c |..b. ..M|insec..l|
|00000660| 1d 20 e7 20 53 57 31 3d | 31 20 f2 4d 69 6e 73 65 |. . SW1=|1 .Minse|
|00000670| 63 5f 49 6e 74 65 67 65 | 72 73 0d 02 76 1d 20 e7 |c_Intege|rs..v. .|
|00000680| 20 53 57 31 3d 2d 31 20 | f2 4d 69 6e 73 65 63 5f | SW1=-1 |.Minsec_|
|00000690| 44 65 63 69 6d 61 6c 0d | 02 80 06 20 e1 0d 02 8a |Decimal.|... ....|
|000006a0| 06 20 3a 0d 02 94 16 20 | dd f2 4d 69 6e 73 65 63 |. :.... |..Minsec|
|000006b0| 5f 49 6e 74 65 67 65 72 | 73 0d 02 9e 1d 20 53 4e |_Integer|s.... SN|
|000006c0| 3d b4 28 58 29 3a 58 50 | 3d 94 28 58 29 3a 58 44 |=.(X):XP|=.(X):XD|
|000006d0| 3d a8 28 58 50 29 0d 02 | a8 19 20 41 3d 28 58 50 |=.(XP)..|.. A=(XP|
|000006e0| 2d 58 44 29 2a 36 30 3a | 58 4d 3d a8 28 41 29 0d |-XD)*60:|XM=.(A).|
|000006f0| 02 b2 1c 20 58 53 3d a8 | 28 28 41 2d 58 4d 29 2a |... XS=.|((A-XM)*|
|00000700| 36 30 30 2b 30 2e 35 29 | 2f 31 30 0d 02 bc 0b 20 |600+0.5)|/10.... |
|00000710| 53 24 3d 22 2b 22 0d 02 | c6 16 20 e7 20 53 4e 3d |S$="+"..|.. . SN=|
|00000720| 2d 31 20 20 8c 20 53 24 | 3d 22 2d 22 0d 02 d0 06 |-1  . S$|="-"....|
|00000730| 20 e1 0d 02 da 06 20 3a | 0d 02 e4 15 20 dd f2 4d | ..... :|.... ..M|
|00000740| 69 6e 73 65 63 5f 44 65 | 63 69 6d 61 6c 0d 02 ee |insec_De|cimal...|
|00000750| 0a 20 53 4e 3d 2b 31 0d | 02 f8 21 20 e7 20 58 44 |. SN=+1.|..! . XD|
|00000760| 3c 30 20 84 20 58 4d 3c | 30 20 84 20 58 53 3c 30 |<0 . XM<|0 . XS<0|
|00000770| 20 8c 20 53 4e 3d 2d 31 | 0d 03 02 22 20 58 44 31 | . SN=-1|..." XD1|
|00000780| 3d 94 28 58 44 29 3a 58 | 4d 31 3d 94 28 58 4d 29 |=.(XD):X|M1=.(XM)|
|00000790| 3a 58 53 31 3d 94 28 58 | 53 29 0d 03 0c 23 20 58 |:XS1=.(X|S)...# X|
|000007a0| 3d 28 28 28 28 58 53 31 | 2f 36 30 29 2b 58 4d 31 |=((((XS1|/60)+XM1|
|000007b0| 29 2f 36 30 29 2b 58 44 | 31 29 2a 53 4e 0d 03 16 |)/60)+XD|1)*SN...|
|000007c0| 06 20 e1 0d 03 20 06 20 | 3a 0d 03 2a 0d 20 dd f2 |. ... . |:..*. ..|
|000007d0| 4a 75 6c 64 61 79 0d 03 | 34 12 20 e7 20 46 4c 41 |Julday..|4. . FLA|
|000007e0| 47 28 31 29 3d 31 20 e1 | 0d 03 3e 20 20 4d 4e 31 |G(1)=1 .|..>  MN1|
|000007f0| 3d 4d 4e 3a 59 52 31 3d | 59 52 3a 46 4c 41 47 28 |=MN:YR1=|YR:FLAG(|
|00000800| 31 29 3d 31 3a 42 3d 30 | 0d 03 48 15 20 e7 20 59 |1)=1:B=0|..H. . Y|
|00000810| 52 31 3c 30 20 8c 20 59 | 52 31 2b 3d 31 0d 03 52 |R1<0 . Y|R1+=1..R|
|00000820| 1c 20 e7 20 4d 4e 3c 33 | 20 8c 20 4d 4e 31 2b 3d |. . MN<3| . MN1+=|
|00000830| 31 32 3a 59 52 31 2d 3d | 31 0d 03 5c 15 20 e7 20 |12:YR1-=|1..\. . |
|00000840| 59 52 3c 31 35 38 32 20 | 8c 20 8d 74 44 43 0d 03 |YR<1582 |. .tDC..|
|00000850| 66 1d 20 e7 20 59 52 3d | 31 35 38 32 20 80 20 4d |f. . YR=|1582 . M|
|00000860| 4e 3c 31 30 20 8c 20 8d | 74 44 43 0d 03 70 25 20 |N<10 . .|tDC..p% |
|00000870| e7 20 59 52 3d 31 35 38 | 32 20 80 20 4d 4e 3d 31 |. YR=158|2 . MN=1|
|00000880| 30 20 80 20 44 59 3c 31 | 35 20 8c 20 8d 74 44 43 |0 . DY<1|5 . .tDC|
|00000890| 0d 03 7a 1e 20 41 3d a8 | 28 59 52 31 2f 31 30 30 |..z. A=.|(YR1/100|
|000008a0| 29 3a 42 3d 32 2d 41 2b | a8 28 41 2f 34 29 0d 03 |):B=2-A+|.(A/4)..|
|000008b0| 84 13 20 e7 20 59 52 31 | 3c 30 20 8c 20 8d 74 58 |.. . YR1|<0 . .tX|
|000008c0| 43 0d 03 8e 22 20 43 3d | a8 28 33 36 35 2e 32 35 |C..." C=|.(365.25|
|000008d0| 2a 59 52 31 29 2d 36 39 | 34 30 32 35 3a e5 20 8d |*YR1)-69|4025:. .|
|000008e0| 74 62 43 0d 03 98 25 20 | 43 3d a4 49 54 47 28 28 |tbC...% |C=.ITG((|
|000008f0| 33 36 35 2e 32 35 2a 59 | 52 31 29 2d 30 2e 37 35 |365.25*Y|R1)-0.75|
|00000900| 29 2d 36 39 34 30 32 35 | 0d 03 a2 19 20 44 3d a8 |)-694025|.... D=.|
|00000910| 28 33 30 2e 36 30 30 31 | 2a 28 4d 4e 31 2b 31 29 |(30.6001|*(MN1+1)|
|00000920| 29 0d 03 ac 15 20 44 4a | 44 3d 42 2b 43 2b 44 2b |).... DJ|D=B+C+D+|
|00000930| 44 59 2d 30 2e 35 0d 03 | b6 06 20 e1 0d 03 c0 06 |DY-0.5..|.. .....|
|00000940| 20 3a 0d 03 ca 0c 20 dd | f2 47 74 69 6d 65 0d 03 | :.... .|.Gtime..|
|00000950| d4 17 20 e7 20 46 4c 41 | 47 28 33 29 3d 31 20 8c |.. . FLA|G(3)=1 .|
|00000960| 20 8d 54 64 44 0d 03 de | 1c 20 58 4d 4e 3d 4d 4e | .TdD...|. XMN=MN|
|00000970| 3a 58 44 59 3d 44 59 3a | 46 4c 41 47 28 33 29 3d |:XDY=DY:|FLAG(3)=|
|00000980| 31 0d 03 e8 1f 20 46 4c | 41 47 28 31 29 3d 30 3a |1.... FL|AG(1)=0:|
|00000990| f2 4a 75 6c 64 61 79 3a | 58 44 4a 44 3d 44 4a 44 |.Julday:|XDJD=DJD|
|000009a0| 0d 03 f2 18 20 4d 4e 3d | 31 3a 44 59 3d 30 3a 46 |.... MN=|1:DY=0:F|
|000009b0| 4c 41 47 28 31 29 3d 30 | 0d 03 fc 18 20 f2 4a 75 |LAG(1)=0|.... .Ju|
|000009c0| 6c 64 61 79 3a 54 3d 44 | 4a 44 2f 33 36 35 32 35 |lday:T=D|JD/36525|
|000009d0| 0d 04 06 2b 20 52 3d 36 | 2e 36 34 36 30 36 35 36 |...+ R=6|.6460656|
|000009e0| 2b 28 35 2e 31 32 36 32 | 45 2d 32 2b 28 54 2a 32 |+(5.1262|E-2+(T*2|
|000009f0| 2e 35 38 31 45 2d 35 29 | 29 2a 54 0d 04 10 2a 20 |.581E-5)|)*T...* |
|00000a00| 52 31 3d 32 34 30 30 2a | 28 54 2d 28 28 59 52 2d |R1=2400*|(T-((YR-|
|00000a10| 31 39 30 30 29 2f 31 30 | 30 29 29 3a 42 3d 32 34 |1900)/10|0)):B=24|
|00000a20| 2d 52 2d 52 31 0d 04 1a | 21 20 54 30 3d 28 28 58 |-R-R1...|! T0=((X|
|00000a30| 44 4a 44 2d 44 4a 44 29 | 2a 36 2e 35 37 30 39 38 |DJD-DJD)|*6.57098|
|00000a40| 45 2d 32 29 2d 42 0d 04 | 24 13 20 e7 20 53 57 32 |E-2)-B..|$. . SW2|
|00000a50| 3d 31 20 8c 20 8d 44 56 | 44 0d 04 2e 14 20 e7 20 |=1 . .DV|D.... . |
|00000a60| 54 30 3c 30 20 8c 20 54 | 30 2b 3d 32 34 0d 04 38 |T0<0 . T|0+=24..8|
|00000a70| 0f 20 47 54 4d 3d 54 49 | 4d 2d 54 30 0d 04 42 16 |. GTM=TI|M-T0..B.|
|00000a80| 20 e7 20 47 54 4d 3c 30 | 20 8c 20 47 54 4d 2b 3d | . GTM<0| . GTM+=|
|00000a90| 32 34 0d 04 4c 22 20 47 | 54 4d 3d 47 54 4d 2a 39 |24..L" G|TM=GTM*9|
|00000aa0| 2e 39 37 32 36 39 35 36 | 37 37 45 2d 31 3a e5 20 |.9726956|77E-1:. |
|00000ab0| 8d 44 74 44 0d 04 56 1d | 20 47 54 4d 3d 28 54 49 |.DtD..V.| GTM=(TI|
|00000ac0| 4d 2a 31 2e 30 30 32 37 | 33 37 39 30 38 29 2b 54 |M*1.0027|37908)+T|
|00000ad0| 30 0d 04 60 17 20 e7 20 | 47 54 4d 3e 32 34 20 8c |0..`. . |GTM>24 .|
|00000ae0| 20 47 54 4d 2d 3d 32 34 | 0d 04 6a 16 20 e7 20 47 | GTM-=24|..j. . G|
|00000af0| 54 4d 3c 30 20 8c 20 47 | 54 4d 2b 3d 32 34 0d 04 |TM<0 . G|TM+=24..|
|00000b00| 74 18 20 58 3d 47 54 4d | 3a 53 57 31 3d 31 3a f2 |t. X=GTM|:SW1=1:.|
|00000b10| 4d 69 6e 73 65 63 0d 04 | 7e 16 20 48 53 3d 58 44 |Minsec..|~. HS=XD|
|00000b20| 3a 4d 53 3d 58 4d 3a 53 | 53 3d 58 53 0d 04 88 1b |:MS=XM:S|S=XS....|
|00000b30| 20 4d 4e 3d 58 4d 4e 3a | 44 59 3d 58 44 59 3a 44 | MN=XMN:|DY=XDY:D|
|00000b40| 4a 44 3d 58 44 4a 44 0d | 04 92 06 20 e1 0d 04 9c |JD=XDJD.|... ....|
|00000b50| 06 20 3a 0d 04 a6 0c 20 | dd f2 45 71 68 6f 72 0d |. :.... |..Eqhor.|
|00000b60| 04 b0 17 20 e7 20 46 4c | 41 47 28 34 29 3d 31 20 |... . FL|AG(4)=1 |
|00000b70| 8c 20 8d 64 4e 44 0d 04 | ba 1c 20 43 50 48 49 3d |. .dND..|.. CPHI=|
|00000b80| 9b 28 50 48 49 29 3a 53 | 50 48 49 3d b5 28 50 48 |.(PHI):S|PHI=.(PH|
|00000b90| 49 29 0d 04 c4 0e 20 46 | 4c 41 47 28 34 29 3d 31 |I).... F|LAG(4)=1|
|00000ba0| 0d 04 ce 14 20 53 59 3d | b5 28 59 29 3a 43 59 3d |.... SY=|.(Y):CY=|
|00000bb0| 9b 28 59 29 0d 04 d8 14 | 20 53 58 3d b5 28 58 29 |.(Y)....| SX=.(X)|
|00000bc0| 3a 43 58 3d 9b 28 58 29 | 0d 04 e2 1e 20 53 51 3d |:CX=.(X)|.... SQ=|
|00000bd0| 28 53 59 2a 53 50 48 49 | 29 2b 28 43 59 2a 43 50 |(SY*SPHI|)+(CY*CP|
|00000be0| 48 49 2a 43 58 29 0d 04 | ec 21 20 51 3d a4 41 53 |HI*CX)..|.! Q=.AS|
|00000bf0| 4e 28 53 51 29 3a 43 51 | 3d 9b 28 51 29 3a 41 3d |N(SQ):CQ|=.(Q):A=|
|00000c00| 43 50 48 49 2a 43 51 0d | 04 f6 18 20 e7 20 41 3c |CPHI*CQ.|... . A<|
|00000c10| 31 45 2d 32 30 20 8c 20 | 41 3d 31 45 2d 32 30 0d |1E-20 . |A=1E-20.|
|00000c20| 05 00 23 20 43 50 3d 28 | 53 59 2d 28 53 50 48 49 |..# CP=(|SY-(SPHI|
|00000c30| 2a 53 51 29 29 2f 41 3a | 50 3d a4 41 43 53 28 43 |*SQ))/A:|P=.ACS(C|
|00000c40| 50 29 0d 05 0a 15 20 e7 | 20 53 58 3e 30 20 8c 20 |P).... .| SX>0 . |
|00000c50| 50 3d 54 50 49 2d 50 0d | 05 14 06 20 e1 0d 05 1e |P=TPI-P.|... ....|
|00000c60| 06 20 3a 0d 05 28 0c 20 | dd f2 48 72 61 6e 67 0d |. :..(. |..Hrang.|
|00000c70| 05 32 16 20 4c 53 54 3d | 47 53 54 2b 28 4c 4f 4e |.2. LST=|GST+(LON|
|00000c80| 47 2f 31 35 29 0d 05 3c | 1a 20 e7 20 4c 53 54 3e |G/15)..<|. . LST>|
|00000c90| 32 34 20 8c 20 4c 53 54 | 3d 4c 53 54 2d 32 34 0d |24 . LST|=LST-24.|
|00000ca0| 05 46 19 20 e7 20 4c 53 | 54 3c 30 20 8c 20 4c 53 |.F. . LS|T<0 . LS|
|00000cb0| 54 3d 4c 53 54 2b 32 34 | 0d 05 50 0c 20 50 3d 4c |T=LST+24|..P. P=L|
|00000cc0| 53 54 2d 58 0d 05 5a 13 | 20 e7 20 50 3c 30 20 8c |ST-X..Z.| . P<0 .|
|00000cd0| 20 50 3d 50 2b 32 34 0d | 05 64 06 20 e1 0d 05 6e | P=P+24.|.d. ...n|
|00000ce0| 06 20 3a 0d 05 78 0d 20 | dd f2 52 65 66 72 63 74 |. :..x. |..Refrct|
|00000cf0| 0d 05 82 13 20 e7 20 53 | 57 35 3d 2d 31 20 8c 8d |.... . S|W5=-1 ..|
|00000d00| 74 6a 45 0d 05 8c 10 20 | f2 52 65 66 72 3a 59 3d |tjE.... |.Refr:Y=|
|00000d10| 59 2b 52 0d 05 96 06 20 | e1 0d 05 a0 06 20 3a 0d |Y+R.... |..... :.|
|00000d20| 05 aa 0e 20 59 31 3d 59 | 3a 52 31 3d 30 0d 05 b4 |... Y1=Y|:R1=0...|
|00000d30| 17 20 59 3d 59 31 2b 52 | 31 3a f2 52 65 66 72 3a |. Y=Y1+R|1:.Refr:|
|00000d40| 52 32 3d 52 0d 05 be 0d | 20 e7 20 52 32 3d 30 20 |R2=R....| . R2=0 |
|00000d50| e1 0d 05 c8 16 20 e7 20 | 94 28 52 32 2d 52 31 29 |..... . |.(R2-R1)|
|00000d60| 3c 31 45 2d 36 20 e1 0d | 05 d2 06 20 3a 0d 05 dc |<1E-6 ..|... :...|
|00000d70| 11 20 52 31 3d 52 32 3a | e5 20 8d 74 74 45 0d 05 |. R1=R2:|. .ttE..|
|00000d80| e6 06 20 3a 0d 05 f0 0b | 20 dd f2 52 65 66 72 0d |.. :....| ..Refr.|
|00000d90| 05 fa 1b 20 e7 20 59 3c | 32 2e 36 31 37 39 39 34 |... . Y<|2.617994|
|00000da0| 45 2d 31 20 8c 20 8d 54 | 62 46 0d 06 04 29 20 52 |E-1 . .T|bF...) R|
|00000db0| 3d 53 57 35 2a 37 2e 38 | 38 38 38 38 38 45 2d 35 |=SW5*7.8|88888E-5|
|00000dc0| 2a 50 52 2f 28 28 32 37 | 33 2b 54 52 29 2a b7 28 |*PR/((27|3+TR)*.(|
|00000dd0| 59 29 29 0d 06 0e 06 20 | e1 0d 06 18 06 20 3a 0d |Y)).... |..... :.|
|00000de0| 06 22 18 20 e7 20 59 3c | 2d 38 2e 37 45 2d 32 20 |.". . Y<|-8.7E-2 |
|00000df0| 8c 20 52 3d 30 3a e1 0d | 06 2c 06 20 3a 0d 06 36 |. R=0:..|.,. :..6|
|00000e00| 14 20 59 44 3d 59 2a 35 | 2e 37 32 39 35 37 38 45 |. YD=Y*5|.729578E|
|00000e10| 31 0d 06 40 29 20 41 3d | 28 28 32 45 2d 35 2a 59 |1..@) A=|((2E-5*Y|
|00000e20| 44 2b 31 2e 39 36 45 2d | 32 29 2a 59 44 2b 31 2e |D+1.96E-|2)*YD+1.|
|00000e30| 35 39 34 45 2d 31 29 2a | 50 52 0d 06 4a 2b 20 42 |594E-1)*|PR..J+ B|
|00000e40| 3d 28 32 37 33 2b 54 52 | 29 2a 28 28 38 2e 34 35 |=(273+TR|)*((8.45|
|00000e50| 45 2d 32 2a 59 44 2b 35 | 2e 30 35 45 2d 31 29 2a |E-2*YD+5|.05E-1)*|
|00000e60| 59 44 2b 31 29 0d 06 54 | 1c 20 52 3d 28 41 2f 42 |YD+1)..T|. R=(A/B|
|00000e70| 29 2a 31 2e 37 34 35 33 | 32 39 45 2d 32 2a 53 57 |)*1.7453|29E-2*SW|
|00000e80| 35 0d 06 5e 06 20 e1 0d | 06 68 06 20 3a 0d 06 72 |5..^. ..|.h. :..r|
|00000e90| 3d 20 f4 20 41 63 6b 6e | 6f 77 6c 65 64 67 65 6d |= . Ackn|owledgem|
|00000ea0| 65 6e 74 3a 20 41 53 54 | 52 4f 4e 4f 4d 59 20 57 |ent: AST|RONOMY W|
|00000eb0| 49 54 48 20 59 4f 55 52 | 20 50 45 52 53 4f 4e 41 |ITH YOUR| PERSONA|
|00000ec0| 4c 20 43 4f 4d 50 55 54 | 45 52 0d 06 7c 2b 20 f4 |L COMPUT|ER..|+ .|
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ee0| 20 20 50 65 74 65 72 20 | 44 75 66 66 65 74 74 2d |  Peter |Duffett-|
|00000ef0| 53 6d 69 74 68 0d 06 86 | 38 20 f4 20 20 20 20 20 |Smith...|8 .     |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 61 6d |        |     Cam|
|00000f10| 62 72 69 64 67 65 20 55 | 6e 69 76 65 72 73 69 74 |bridge U|niversit|
|00000f20| 79 20 50 72 65 73 73 20 | 20 31 39 38 35 0d 06 90 |y Press | 1985...|
|00000f30| 2d 20 f4 20 41 64 61 70 | 74 65 64 20 62 79 3a 20 |- . Adap|ted by: |
|00000f40| 20 20 20 20 20 44 41 41 | 46 20 44 75 6c 77 69 63 |     DAA|F Dulwic|
|00000f50| 68 20 44 65 63 20 31 39 | 38 38 0d ff             |h Dec 19|88..    |
+--------+-------------------------+-------------------------+--------+--------+